home *** CD-ROM | disk | FTP | other *** search
- ;/*
- sc KillDMA.c DATA=FAR NMINC STRMERGE NOSTKCHK IGNORE=73 STRUCTUREEQUIVALENCE NOSTDIO
- slink from LIB:c.o KillDMA.o to //Clients/KillDMA LIB LIB:sc.lib LIB:amiga.lib /lib/client.lib SC SD STRIPDEBUG NOICONS
- delete KillDMA.o
- quit
-
- KillDMA 1.2 (Client for BServer)
-
- Copyright © 1994 Stefano Reksten of 3AM - The Three Amigos!!!
- All rights reserved.
- */
-
- #include <exec/types.h>
- #include <exec/memory.h>
- #include <graphics/gfxmacros.h>
- #include <hardware/dmabits.h>
- #include <hardware/intbits.h>
-
- #include <clib/exec_protos.h>
- #include <clib/intuition_protos.h>
- #include <clib/graphics_protos.h>
-
- #include "/include/client.h"
- #include "/include/client_pragmas.h"
-
- struct IntuitionBase *IntuitionBase;
- struct GfxBase *GfxBase;
- struct DisplayIDInformation *dinfo;
-
- extern far struct Custom custom;
-
- void Blank( void )
- {
- struct Screen *scr;
-
- if ( scr = OpenScreenTags( NULL,
- SA_Depth, 0,
- SA_DisplayID, DISPLAYID( dinfo ),
- TAG_END ) )
- {
- register struct ViewPort *vp = &(scr->ViewPort);
-
- SetRGB4( vp, 0, 0, 0, 0 );
- WaitTOF();
- custom.dmacon = BITCLR|DMAF_AUDIO|DMAF_SPRITE|DMAF_COPPER|DMAF_RASTER;
- WaitServerCommand();
- custom.dmacon = BITSET|DMAF_AUDIO|DMAF_SPRITE|DMAF_COPPER|DMAF_RASTER;
- CloseScreen( scr );
- }
- else
- SendClientMsg( ACTION_FAILED );
- }
-
-
- void __main( char *line )
- {
- if ( IntuitionBase = (struct IntuitionBase *)OpenLibrary( "intuition.library", 37L ) )
- {
- if ( GfxBase = (struct GfxBase *)OpenLibrary( "graphics.library", 37L ) )
- {
- if ( dinfo = OpenCommunication() )
- {
- Blank();
- CloseCommunication( dinfo );
- }
- CloseLibrary( (struct Library *)GfxBase );
- }
- CloseLibrary( (struct Library *)IntuitionBase );
- }
- }
-